home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy: Best of 1985
/
Ahoy_Best_of_1985_1986_Double_L.d64
/
home budget m'85
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
134 lines
10 rem*********************
20 rem* *
30 rem* home budget *
40 rem* by *
50 rem* brian dobbs *
60 rem* *
70 rem* timmins,ontario *
80 rem* *
90 rem*********************
100 poke53280,12:poke53281,0:dima$(13,13):goto180
110 gosub1230
120 open14,8,14,"0:"+nm$+",s,":x=1
130 y=2
140 input#14, a$(x,y):y=y+1:ify>13then160
150 goto140
160 x=x+1:ifx>13thenclose14:goto180
170 goto130
180 print"[147][154]"tab(14)"budget menu"
190 printtab(10)"1-w[146]rite monthly bills":print""
200 printtab(10)"2-v[146]iew monthly bills":print""
210 printtab(10)"3-b[146]archart trend of bills":print""
220 printtab(10)"4-p[146]rinter trend of bills":print""
230 printtab(10)"5-s[146]ave data to disk":print""
240 printtab(10)"6-l[146]oad data from disk":print""
250 printtab(10)"7-create initial file":print""
260 printtab(12)"select choice ?":y=0
270 getan$:ifan$=""then270
280 forx=1to7:ifan$=mid$("wvbpslc",x,1)theny=x
290 next:onygoto410,300,500,730,960,110,990:goto180
300 print"[147]":input" enter month to view";an$:gosub1020
310 print"[147]":printtab(15)an$:print"":y=2
320 printa$(1,y):y=y+1:ify>13then340
330 goto320
340 print"[145][145][145][145][145][145][145][145][145][145][145][145][145]":y=2
350 printtab(15)a$(x,y):y=y+1:ify>13then370
360 goto350
370 gosub1300
380 print"monthly total"tab(14)q+aa+bb
390 geta$:ifa$=""then390
400 goto180
410 print"[147]":input" what month to write bills";an$
420 gosub1020
430 y=2:print"[147]":printtab(15)an$:print""
440 printa$(1,y):y=y+1:ify>13then460
450 goto440
460 print"[145][145][145][145][145][145][145][145][145][145][145][145][145]":y=2
470 printtab(15):inputa$(x,y)
480 y=y+1:ify>13then180
490 goto470
500 input"[147] enter name of bill";an$
510 forp=2to13
520 ifan$=a$(1,p)theny=p
530 next
540 print" what is maximum scale for "a$(1,y):input" ";b
550 print"[147]":printtab(20-(len(a$(1,y))/2))a$(1,y)
560 print""b:z=0
570 z=z+(b/20):ifz=bthen590
580 printint(b-z):goto570
590 r=1992:x=2:t=56264:u=2
600 fore=rtor-(40*((val(a$(x,y))/(b/20))))step-40:pokee,224:next
610 forf=ttot-(40*((val(a$(x,y))/(b/20))))step-40:pokef,u:next
620 r=r+2:x=x+1:t=t+2:u=u+1
630 ifu=3thenu=1
640 ifx=14then660
650 goto600
660 r=1992:t=56264:poker,138:poket,1:poker+2,134:poket+2,1:poker+4,141
670 poket+4,1:poker+6,129:poket+6,1:poker+8,141:poket+8,1:poker+10,138
680 poket+10,1:poker+12,138:poket+12,1:poker+14,129:poket+14,1:poker+16,147
690 poket+16,1:poker+18,143:poket+18,1:poker+20,142:poket+20,1:poker+22,132
700 poket+22,1
710 geta$:ifa$=""then710
720 goto180
730 open4,4:print#4,tab(38)"budget 1984":print#4:l=2:m=7
740 print#4," bill ";
750 print#4,"january febuary march april may june"
760 gosub850
770 l=2:m=7
780 gosub890
790 l=8:m=13:print#4," bill ";
800 print#4,"july august september october november december"
810 gosub850
820 l=8:m=13
830 gosub890
840 close4:restore:goto180
850 fory=1to13:z=20-len(a$(1,y))
860 print#4,a$(1,y)tab(z);
870 fori=ltom:print#4,(a$(i,y))tab(10-len(a$(i,y)));:nexti:print#4,chr$(10)
880 nexty:print#4:return
890 print#4,"monthly total"tab(6)
900 forx=ltom
910 gosub1300
920 c=q+aa+bb:c$=str$(c)
930 print#4,q+aa+bbtab(9-len(c$));:nextx
940 print#4,chr$(10)
950 return
960 gosub1230
970 open14,8,14,"@0:"+nm$+",s,w"
980 x=1:goto1170
990 print"[147] a total of 12 bills will be entered.":x=1:y=2
1000 input"name of bill";a$(x,y):y=y+1:ify>13then1070
1010 goto1000
1020 forw=1to12
1030 readd$
1040 ifan$=d$thenx=w+1
1050 next
1060 restore:return
1070 print"[147]":x=2
1080 y=2
1090 a$(x,y)="0"
1100 y=y+1:ify>13then1120
1110 goto1090
1120 x=x+1:ifx>13then1140
1130 goto1080
1140 gosub1230
1150 open14,8,14,"0:"+nm$+",s,w"
1160 x=1:print" creating initial file[146]"
1170 y=2
1180 print#14,a$(x,y):y=y+1:ify>13then1200
1190 goto1180
1200 x=x+1:ifx>13then1220
1210 goto1170
1220 close14:goto180
1230 input"[147] filename[146]";nm$
1240 print" press 'f1[146]' to continue"
1250 geta$:ifa$=""then1250
1260 ifa$=chr$(133)thenreturn
1270 goto1260
1280 data january,february,march,april,may,june,july,august,september,october
1290 data november,december
1300 q=(val(a$(x,2)))+(val(a$(x,3)))+(val(a$(x,4)))+(val(a$(x,5)))
1310 aa=(val(a$(x,6)))+(val(a$(x,7)))+(val(a$(x,8)))+(val(a$(x,9)))
1320 bb=(val(a$(x,10)))+(val(a$(x,11)))+(val(a$(x,12)))+(val(a$(x,13)))
1330 return